home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / speak / src / aidic.bas next >
BASIC Source File  |  1993-07-08  |  960b  |  36 lines
  1. 1000 '--------------------------------------------------------------------
  2. 1010 '  ＡＩ基本データ作成
  3. 1020 '--------------------------------------------------------------------
  4. 1030 OPEN "O",#1,"WORD.DAT"
  5. 1040 READ NUM:PRINT #1,NUM
  6. 1050 FOR I=1 TO NUM
  7. 1060  READ KOTOBA$,K1,K2,K3,K4,K5,K6
  8. 1070  WRITE #1,KOTOBA$,K1,K2,K3,K4,K5,K6
  9. 1080 NEXT
  10. 1090 CLOSE
  11. 1100 '
  12. 1110 OPEN "O",#1,"SENT.DAT"
  13. 1120 READ NUM:PRINT #1,NUM
  14. 1130 FOR I=1 TO NUM
  15. 1140  READ KOTOBA$:WRITE #1,KOTOBA$
  16. 1150 NEXT
  17. 1160 CLOSE
  18. 1170 END
  19. 1180 '
  20. 1190 DATA 11
  21. 1200 DATA こんにちは,3,1,2,3,0,0
  22. 1210 DATA いい,3,4,5,6,0,0
  23. 1220 DATA よい,3,4,5,6,0,0
  24. 1230 DATA わるい,3,4,5,6,0,0
  25. 1240 DATA だめ,3,4,5,6,0,0
  26. 1250 DATA いや,3,4,5,6,0,0
  27. 1260 DATA そう,3,4,5,6,0,0
  28. 1270 DATA ううん,3,4,5,6,0,0
  29. 1280 DATA うん,3,4,5,6,0,0
  30. 1290 DATA はい,4,4,5,6,7,0
  31. 1300 DATA いいえ,3,4,5,6,0,0
  32. 1310 '
  33. 1320 DATA 7
  34. 1330 DATA こんにちは,どもども,はろ～
  35. 1340 DATA そうだね,ううん,そうかな,はい
  36.